<?php

function get_cgi_path() /* {{{ */
{
    $php = getenv("TEST_PHP_EXECUTABLE");

    $cli = false;
    $cgi = false;

    if (file_exists($php) && is_executable($php)) {
        $version = `$php -n -v`;
        if (strstr($version, "(cli)")) {
            /* that's cli */
            $cli = true;
        } else if (strpos($version, "(cgi")) {
            /* that's cgi */
            return $php;
        }
    }

    if ($cli) {
        /* trying to guess ... */
        $php_path = $php;
        if (defined("PHP_WINDOWS_VERSION_MAJOR")) {
            /* On Windows it should be in the same dir as php.exe in most of the cases. */
            $php_path = dirname($php);

            if (is_dir($php_path) && file_exists("$php_path/php-cgi.exe") && is_executable("$php_path/php-cgi.exe")) {
                return "$php_path/php-cgi.exe";
            }
        } else {
            for ($i = 0; $i < 2; $i++) {
                $slash_pos = strrpos($php_path, "/");
                if ($slash_pos) {
                    $php_path = substr($php_path, 0, $slash_pos);
                } else {
                    return FALSE;
                }
            }

            if ($php_path && is_dir($php_path) && file_exists($php_path."/cgi/php-cgi") && is_executable($php_path."/cgi/php-cgi")) {
                /* gotcha */
                return $php_path."/cgi/php-cgi";
            }
        }
        return false;
    }
    /* uhm? what's that then? */
    return false;
}
/* }}} */

function reset_env_vars() /* {{{ */
{
    putenv("REDIRECT_STATUS");
    putenv("QUERY_STRING");
    putenv("PATH_TRANSLATED");
    putenv("SCRIPT_FILENAME");
    putenv("SERVER_SOFTWARE");
    putenv("SERVER_NAME");
    putenv("GATEWAY_INTERFACE");
    putenv("REQUEST_METHOD");
}
/* }}} */

?>
